home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / PHYSICS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  757b  |  21 lines
  1. 100 SCROLL$ = "<<<NEWTON'S APPLE>>>....": GOSUB 2290
  2. 110  HOME 
  3. 120  INVERSE 
  4. 130  HTAB 10: VTAB 10
  5. 140  PRINT "NEWTON'S APPLE PRESENTS"
  6. 150  HTAB 18: VTAB 15
  7. 160  FLASH 
  8. 170  PRINT "INERTIA"
  9. 180  NORMAL 
  10. 190  VTAB 24
  11. 200  FOR PAUSE = 1 TO 3300: NEXT 
  12. 210  INPUT "Press the <RETURN> key to continue...";Q$: HOME 
  13. 220  GOSUB 2260: GOSUB 2120
  14. 230  VTAB 12: HTAB 10: INVERSE : PRINT "FREEWARE FROM DU PONT": NORMAL 
  15. 240  FOR I = 1 TO 2000: NEXT 
  16. 250  GOSUB 2260: GOSUB 2120
  17. 300  PRINT  CHR$(4);"run TREE"
  18. 2120  FOR I = 1 TO 40: POKE 33,I: HOME : GOSUB 2270: NEXT : RETURN 
  19. 2260  VTAB 1: HTAB 1: FOR I = 1 TO 23: PRINT "NEWTON'S APPLE        NEWTON'S APPLE   ";: NEXT : FOR J = 1 TO 500: NEXT : RETURN 
  20. 2270  FOR J = 1 TO 22: NEXT : RETURN 
  21. 2290  HOME : RETURN